moto de saut pour Sharp PC1211 ( pas de programme )
tir du magazine Hebdogiciel N14

	Paris-Dakar comme si vous y tiez, sur votre moto PC1211, surnomme Jolly Jumper, la seule  sauter par-dessus les obstacles. Attention, tout le monde ne sera pas  l'arrive.
	DEF B puis ENTER puis choisir le niveau ( 0  3 ). 1 pour acclrer, 2 pour freiner, 3 pour sauter.

Programme :
1 DATA "         ====           "
2 DATA "               ====     "
3 DATA "        =      =        "
4 DATA "            =           "
5 DATA "        ==     ==       "
6 DATA "       ===      ==      "
7 DATA "        ===      =      "
8 DATA "    #==#    #==#        "
9 DATA "     #     #    #       "
10 DATA "     #     #    #       "
11 DATA "       #==#    ##       "
12 DATA "    #     ##    ##      "
13 DATA "      #       ##        "
14 DATA "     #==#     #==#      "
15 DATA "      #==#      #==#    "
16 DATA "      #==#     #==#     "
17 DATA "     #==#    #          "
18 DATA "      #      #      #   "
19 DATA "     $$    $$    $$     "
20 DATA "       $    $==$        "
21 DATA "    $==$    $           "
80 "B": CLEAR:RANDOM:DIM Z$(0)*24:POKE &C500,&F5,15:C$="./"+Z$+"6":A=15:T=7:WAIT:PRINT "moto de saut "+C$
82 INPUT "quel niveau (0/1/2):";K:IF K<0 OR K>2 GOTO 82
83 T=T*K
84 W=(RND 7)+T
85 RESTORE W:READ Z$(0)
100 FOR I=20 TO 0 STEP -1:WAIT A:PRINT LEFT$(Z$(0),I)+C$+RIGHT$(Z$(0),20-I):B$=INKEY$:ON VAL B$ GOTO 110,120,125
102 IF I>1 IF MID$(Z$(0),I,4)<>"   " GOTO 150
105 NEXT I:P=P+5:S=S+1:IF S=5 LET T=T+7:CALL &7050:BEEP 1:WAIT 120:PRINT "tape suivante":S=0:IF T>14 LET T=14
106 GOTO 84
110 A=15:GOTO 121
120 A=35
121 X=VAL B$:GOTO 102
125 ON X GOTO 126,127
126 I=I-7:WAIT 70:GOTO 130
127 I=I-5:WAIT 50
130 PRINT Z$(0):GOTO 102
150 WAIT 120:PRINT LEFT$(Z$(0),I-1)+"boum"+RIGHT$(Z$(0),21-I):D=D+1:IF D<>4 PRINT "   "+C$+" :";D:GOTO 84
155 PRINT "       score:";P:END